100 PRINT"[147]"
110 POKE 53280,7:POKE53281,7
120 PRINT CHR$(149)
130 PRINT CHR$(14)
140 PRINT CHR$(8)
150 DIM T$(30)
160 FOR X=1 TO 30:READ T$(X):NEXTX
170 FORX=1TO36:D$=D$+"=":NEXTX
180 PRINT"[147]          [200]OW [211]MART ARE [217]OU?":FORZ=1TO2000:NEXTZ:PRINT"[147]"
200 PRINT""
205 FOR J=1TO10
210 R=INT(10*RND(1))+1
211 IF T$(R)="DONE"THEN210
213 PRINT"[209][213][197][211][212][201][207][206][160][206][213][205][194][197][210]";J:PRINT
220 PRINT"=1=";D$:PRINTT$(R):PRINT:T$(R)="DONE"
225 PRINT"=2=";D$:PRINTT$(R+10)
226 PRINT:PRINT"===";D$:PRINT
230 PRINT:PRINT"[211]ELECT CORRECT ANSWER BY NUMBER"
232 GETA$:IFA$=""THEN232:A=VAL(A$)
235 PRINT:PRINT"===";D$
240 PRINT"[145][145][145][145][145][195]ORRECT ANSWER IS:[146]"
250 PRINT"                                       "
255 PRINTT$(R+20)
260 PRINT"[208]RESS [210][197][212][213][210][206] TO CONTINUE/'[209]'TO [209]UIT":POKE198,0:WAIT198,1:GETA$
270 IF A$="Q"OR A$="[209]"THEN 280
275 PRINT"[147]":NEXTJ
280 PRINT CHR$(9)
300 REM ****** END *******
302 POKE53280,5:POKE53281,0:PRINT"[144]";
305 PRINT"[144][147]LOAD"CHR$(34)"PAYLOAD"CHR$(34)",8":PRINT"RUN"
310 POKE631,13:POKE632,13:POKE198,2
315 REM ****** END *******
320 END
3000 REM DATA FOLLOWS
3001 DATA "[196]OES A PERSON LIVE HERE WITH ONE EYE    NAMED [215]ILSON?"
3002 DATA"[193] STRANGE MAN WAS STROLLING DOWN [205]AIN   [211]TREET WITH A RED BEARD."
3003 DATA"[205]RS. [211]MITH WAS INJURED WHILE FIXING     DINNER IN A HORRIBLE MANNER."
3004 DATA "[215]HILE EATING OATS, HE TOOK THE MARE     OUT OF HIS STABLE."
3005 DATA"[212]HE FLAMES WERE PUT OUT BEFORE ANY MORE DAMAGE BY THE [198]IRE [196]EPT."
3006 DATA"[212]HE OLD MAN WENT TO THE BARN TO MILK    THE COW WITH HIS CANE."
3007 DATA"[212]HE GIRL WENT TO THE PARTY WITH A BOY INA LOW CUT GOWN."
3008 DATA "[200]E SOLD THE WATCH TO THE GIRL WITH A    [211]WISS MOVEMENT."
3009 DATA"[196]ID YOU READ ABOUT THE GIRL WHO WAS RUN OVER IN THE NEWSPAPER?"
3010 DATA"[212]HE COMPUTER WAS DELIVERED BY THE MAN   WITH A SCREW LOOSE."
4001 DATA "[196]OES A ONE-EYED PERSON NAMED [215]ILSON     LIVE HERE?"
4002 DATA"[193] STRANGE MAN WITH A RED BEARD WAS      STROLLING DOWN [205]AIN [211]TREET."
4003 DATA"[205]RS. [211]MITH WAS INJURED IN A HORRIBLE    MANNER WHILE FIXING DINNER."
4004 DATA"[215]HILE THE MARE WAS EATING OATS, HE WAS  TAKEN FROM THE STABLE."
4005 DATA"[212]HE FLAMES WERE PUT OUT BY [198]IRE [196]EPT.   BEFORE MORE DAMAGE WAS DONE."
4006 DATA"[212]HE OLD MAN WENT TO THE BARN WITH HIS   CANE TO MILK THE COW."
4007 DATA"[215]EARING A LOW CUT GOWN, THE GIRL WENT   WITH THE BOY TO THE PARTY."
4008 DATA"[200]E SOLD THE WATCH WITH A [211]WISS MOVEMENT TO THE GIRL."
4009 DATA"[196]ID YOU READ IN THE NEWSPAPER ABOUT THE GIRL WHO WAS RUN OVER?"
4010 DATA"[212]HE COMPUTER HAD A SCREW LOOSE WHEN IT  WAS DELIVERED."
5001 DATA "[206]O.  [200]E MOVED ABOUT SIX YEARS AGO."
5002 DATA"[193] MAN WAS STROLLING DOWN [205]AIN [211]TREET    WITH A STRANGE BROAD."
5003 DATA"[205]RS. [211]MITH WAS FIXING A HORRIBLE DINNER AND HURT HERSELF."
5004 DATA"[215]HILE SHE WAS EATING THEY TOOK HER DARN OATS FROM HER."
5005 DATA"[212]HE DAMAGED OLD FLAME WAS PUT OUT TO    AVOID FURTHER TROUBLE."
5006 DATA"[212]HE OLD MAN TOOK A BUCKET TO THE BARN   TO MILK THE COW."
5007 DATA"[215]HEN HE SAW THE GOWN, THE BOY DECIDED   TO STAY HOME AND PARTY."
5008 DATA "[200]E GAVE THE WATCH TO THE GIRL WITH A    [211]WISS MOVEMENT."
5009 DATA"[206]O.  [194]UT [201] SAW THE FILM AT 11:00 P.M."
5010 DATA"[193]NYONE WHO GETS A COMPUTER MUST HAVE A  SCREW LOOSE -- SOMEWHERE."
5090 REM
6000 REM **************************
6010 REM *                        *
6020 REM * HOW SMART ARE YOU?     *
6030 REM *                        *
6040 REM * PAUL RAYMER            *
6050 REM * 3464 TOWNHOUSE DRIVE   *
6060 REM * LAS VEGAS NEVADA 89121 *
6070 REM *                        *
6080 REM * III/XVII/MCMLXXXIV     *
6090 REM *                        *
6100 REM **************************